home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
0193.ZIP
/
WRITE.DOC
< prev
next >
Wrap
Text File
|
1985-03-08
|
2KB
|
59 lines
WRITELIN and WRITEXY
by
Jim Everingham 1984
***********************************************************
* These Procedures are Public Domain and are free to be *
* copied, modified, and distributed. *
***********************************************************
VARS - These variable must be Global and be used at the very top
of your program.
WRITELIN - To call this procedure first initialize LINE_POS ar the beginning
of your program to 0 by the statement LINE_POS:=0;. If this is not
done, no telling what may happen. Next use the procedure by the
following Syntax:
WRITELN(<Character String>,<Color -Integer between
0 and 255>);
Example:
WRITELN('Hello',12);
WRITEXY - It is not necessary to initialize LINE_POS or any other variables
to use this procedure. Here is the Syntax:
WRITEXY(<Character String>,<X-Coordinate>,<Y-Coor-
dinate>,<Color -Integer between 0 and 255>);
Example:
WRITEXY('Hello',40,20,(12+128));
Note: Adding 128 to color adds Blinking,
(ie, to add blinking to red (12), add 128
or 140 for blinking).
These Routines are generally more responsive than the regular Turbo Pascal
procedure and much faster. If you have any questions about them, please
contact:
Jim Everingham
215 West Fairmount Avenue
Apt 306 Fairmount Hills
State College, Pa 16801
814-238-9655
Compuserve: 75116,433
NOTE: Both of these files assume a color monitor. To use with monochrome,
you must change the screen address from $B800 to $B000. The place
to make the change is marked. -- Neil J. Rubenking